home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq15.zip / KEY.SLT < prev    next >
Text File  |  1990-02-14  |  1KB  |  94 lines
  1. str hh[16]="0123456789ABCDEF";
  2. int i0 = 1,
  3.     i1 = 2,
  4.     i2 = 4,
  5.     i3 = 8,
  6.     i4 = 16,
  7.     i5 = 32,
  8.     i6 = 64,
  9.     i7 = 128,
  10.     i8 = 256,
  11.     i9 = 512,
  12.     i10 = 1024,
  13.     i11 = 2048,
  14.     i12 = 4096,
  15.     i13 = 8192,
  16.     i14 = 16384,
  17.     i15 = 32768;
  18.  
  19. main()
  20. {
  21. int error;                 // Line 18
  22.  
  23.   clear_scr();
  24.   prints (" Key check script. Press X to return to TELIX.");
  25.   prints (" ");
  26.   _back_color = 0;
  27.   _fore_color = 12;
  28.   update_term();
  29.  
  30.   do  {
  31.     printsc (": ");
  32.     error = inkeyw();
  33.     printn (error);
  34.     printsc (" = ");
  35.     bin (error);
  36.     printsc (" = ");
  37.     hex (error);
  38.   } while (error != 'X');
  39.   _back_color = 1;
  40.   _fore_color = 14;
  41.   clear_scr();
  42. }
  43.  
  44. bin(int x) 
  45. {
  46.  
  47.   zero (x & i15);
  48.   zero (x & i14);
  49.   zero (x & i13);
  50.   zero (x & i12);
  51.   printsc (" ");
  52.   zero (x & i11);
  53.   zero (x & i10);
  54.   zero (x & i9);
  55.   zero (x & i8);
  56.   printsc (" ");
  57.   zero (x & i7);
  58.   zero (x & i6);
  59.   zero (x & i5);
  60.   zero (x & i4);
  61.   printsc (" ");
  62.   zero (x & i3);
  63.   zero (x & i2);
  64.   zero (x & i1);
  65.   zero (x & i0);
  66. }
  67.  
  68. zero(int x)
  69. {
  70.   if (x) printc('1'); else printc ('0');
  71. }
  72.  
  73. hex(int x) 
  74. {
  75. int i, c;
  76.  
  77.   i = x;
  78.   if (x<0) i = x & 32767;
  79.   c = 15 & (i/4096);
  80.   if (x<0) c = c+8;
  81.   printc (subchr(hh,c));
  82.  
  83.   c = 15 & (i/256);
  84.   printc (subchr(hh,c));
  85.  
  86.   c = 15 & (i/16);
  87.   printc (subchr(hh,c));
  88.  
  89.   c = 15 & i;
  90.   printc (subchr(hh,c));
  91.  
  92.   prints ("");
  93. }
  94.